home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / cnet / cnet_toolkit.lha / routines / SELFILE < prev    next >
Text File  |  1997-04-05  |  495b  |  5 lines
  1. SELFILE: procedure;arg np,bco,fco,ki;getuser 1209644;nu=result;getuser 2407246;if nu=result then return 0
  2.   pa=left(np,max(lastpos(":",np),lastpos("/",np)));na=substr(np,length(pa)+1);si=word(statef(np),2)
  3.   sh=x2c(d2x(si,8))left(na,32,"00"x)left(pa,96,"00"x)copies("00"x,7)x2c(d2x(ki,2))x2c(d2x(si*bco%100,8))x2c(d2x(fco,4))copies("00"x,6)copies("FF"x,4)
  4.   getcarrier;if result~="TRUE" then exit;getuser 1401978;call export(x2c(d2x(result+nu*156,8)),sh);setobject nu+1;putuser 1209644;return 1
  5.